home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr53
/
pctv4n_1.zip
/
CONCEN.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-06-10
|
22KB
|
238 lines
Concentration
Concentration Version 1.0
Form1%
PlayerInfo
Player 2
PlayerScore
Label3
Score:
PlayerName
Label1
Name:
PicSet
AniPushButton
IIIII
wwwwwww
""",""""""
"+"""""+"
" """
wwp" """ wwww
""""""""
,""""
""" "
""""+""
??????0
??????
??????0
YYYYYP
ppppp
ppppppp
ppppppppppppppp
ppppppppppppp
ppppppppppppppp
{{{{{
{{{{{{{{{{{p
{{{{{
wwwwwwwwww
wwwwwwwwwwp
wxxxxxxxwwp
xxxxxxxxxwp
xxxxxxxxxwp
wxxxxxxxxwp
wwwwwwwwwwp
wwwwwwwwww
DDDDDDD
DDDDDDDDDDDDD
DDDDDDDDDDDDD
DDDDDDDDDDDDD
DDDDDDDDDDDDK
DDDDDDDDDDDD
DDDDDDDDDDK
DDDDDDDDDD
DDDDDDDDK
DDDDDDDD
DDDDDDK
DDDDDD
DDDDK
DDDDD
DDDDDK
DDDDDDD
DDDDDDDK
DDDDDDDDD
DDDDDDDDDK
DDDDDDDDDDD
DDDDDDDDDDDK
DDDDDDDDDDDDD
DDDDDDDDDDDDDK
DDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDD
ps330p
p3333p
p3333p
pp33pp
ppppp
wwwwwwwwwwwwwwp
wwwwwwwwwwwwwwp
wwwwwwwwwwwwwwp
wwwwwwwwwwwwwwwwp
wwwwwwwwwwwwwwww
wwwwwwwwwwwwww
UUUUUUU
UUUUUU
UUUUU]
UUUUU]
UUUUU
Timer1
PlayerInfo
Player 1
PlayerScore
Label3
Score:
PlayerName
Label1
Name:
btnGamePiece
AniPushButton
GameMenu
&Game
NewCmd
SepBar1
ExitCmd
E&xit
HelpMenu
&Help
AboutCmd
&About...
AniButton1_Click
NewCmd_Clicky
btnGamePiece
Frame
nexti
TrackUseJ
Selection
TrackUsed
Incr+
PicSelected<
FALSE
TRUEc
PicSetM
Picture
Visiblel
CurrentPlayer
ExitCmd_Clickp
Form_Click
@ Form_Load*
Concentration
MousePointerG
HOURGLASS
DEFAULT)
btnGamePiece_Click
Index
NumPlayers
NumShown
Piece1
Piece2G
Enabled
Timer1
MessageBeep
MB_ICONINFORMATION
Timer1_Timer
Value
PlayingGame
SpecialOp
MAX_MATCHV
MatchesMade
Players
PlayerType
Scorez
MB_ICONEXCLAMATIONk
PlayerScorem
Caption
NumPlayersCmd_Click
NumPlayersCmd
Checked
PlayerInfo
MAXMATCHES
AnnounceWinner^
NewScore
TheWinner
MB_ICONQUESTIONC
PlayerName
WaitPlease
MODAL
GetPlayerNames
InitPlayerRecs
SetPic
PicBoxV
PicNum_
Answer<
MB_YESNO
IDYES2
IDNOa
InitGamePiece
Source
Piece
PickNum&
InitDone
mdiWaitPlease
ActiveH
mdiWaitPlease_Activate%
btnOkButton
btnOkButton_Click
Height
AboutCmd_Click
GameMenu_Click
HelpMenu_Click
Label1_Click
Label3_Click
LevelCmd_Click
PicSet_Click
PlayerInfo_DragDrops
PlayerName_Click
PlayerScore_Click
SepBar1_Click
PiecesLoaded
StartTime
EndTime
Elapsed
AboutBox
PlayerInfoForm
Form_Unload
Cancel
Interval
Level
BackColor
Title
IntegerDim
Control
AboutCmd_Click
AnnounceWinner
is the winner!
Congratulations!
is the winner!
Congratulations!
The game was tied!
No Winner
btnGamePiece_Click
You made a match!
A Match!
Start a new game first!
Error
ExitCmd_Click
Form_Load
Initialize CrLf$
Form_Unload
InitGamePiece
Make sure x and y are only initialized thed
first time the Sub gets called.
Piece.Picture = Source.Picturec
InitPlayerRecs
NewCmd_Click
Initialize game variables
Load the game pieces if not already done.
Shuffle the piecesi
Ready to start game.
New Game
SetPic
Timer1_Timer